home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb8.arc / PRINTUSG.PAS < prev    next >
Pascal/Delphi Source File  |  1985-02-23  |  640b  |  27 lines
  1. Program Print_using;
  2.  
  3. { This program demonstrates the use of the print using procedure.
  4.  
  5.   Written by:  Bill Collins
  6.   Modified by: Bill Todd }
  7.  
  8.  
  9. var
  10.     number:             real;
  11.     mask:               string[80];
  12.     k:                  integer;
  13.  
  14. {$Iprintusg.inc}
  15.  
  16. begin
  17.     ClrScr;
  18.     Write('Enter mask: ');
  19.     Readln(mask);
  20.     For k := 1 to 10 do
  21.       begin
  22.           number := Sqr(Sqr(k) * Sqr(Random(k)) + random);
  23.           If Odd(k) then number := -number;
  24.           Writeln(Print_using(mask, number):12);
  25.       end;
  26. end.
  27.